home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Procedure / match_signature.al < prev    next >
Encoding:
Text File  |  2008-11-04  |  1.1 KB  |  34 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Procedure.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Procedure;
  5.  
  6. #line 733 "blib/lib/RPC/XML/Procedure.pm (autosplit into blib/lib/auto/RPC/XML/Procedure/match_signature.al)"
  7. ###############################################################################
  8. #
  9. #   Sub Name:       match_signature
  10. #
  11. #   Description:    Determine if the passed-in signature string matches any
  12. #                   of this method's known signatures.
  13. #
  14. #   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
  15. #                   $self     in      ref       Object of this class
  16. #                   $sig      in      scalar    Signature to check for
  17. #
  18. #   Returns:        Success:    return type as a string
  19. #                   Failure:    0
  20. #
  21. ###############################################################################
  22. sub match_signature
  23. {
  24.     my $self = shift;
  25.     my $sig  = shift;
  26.  
  27.     $sig = join(' ', @$sig) if ref $sig;
  28.  
  29.     return $self->{sig_table}->{$sig} || 0;
  30. }
  31.  
  32. # end of RPC::XML::Procedure::match_signature
  33. 1;
  34.